unit Helpr_UniEngine;

interface
uses
  System.Classes,System.SysUtils,UniEngine,QJSON;

type
  THelprUniEngine=class helper for TUniEngine
  public
    function  InRtti:string;
    procedure ToRtti(AValue:string);
  public
  end;

implementation

{ TUniEngineExRtti }

function THelprUniEngine.InRtti: string;
var
  JSON:TQJson;
begin
  Result:='';
  try
    JSON:=TQJson.Create;
    JSON.FromRtti(Self);
    Result:=JSON.Value;
  finally
    FreeAndNil(JSON);
  end;
end;

procedure THelprUniEngine.ToRtti(AValue:string);
var
  JSON:TQJson;
begin
  try
    JSON:=TQJson.Create;
    JSON.Value:=AValue;
    JSON.ToRtti(Self);
  finally
    FreeAndNil(JSON);
  end;
end;

end.
